home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / anleitung cent. (.txt) next >
Encoding:
Commodore BASIC  |  1986-01-01  |  6.7 KB  |  201 lines
  1. 0 print"[147]",chr$(14)
  2. 10 print"[195][197][206][212]-[211][205][207][206]-[203]ernel
  3. 20 [153]
  4. 30 [153]"- str$as (NULL)uper-peeketriebssystem jetzt mit
  5. 40 print"  [195]entronics-[211]chnittstelle
  6. 50 [153]
  7. 60 [153]" lenval(NULL)(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel entspricht in allen
  8. 70 print"[198]unktionen dem bereits vorgestellten
  9. 80 [153]"val(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel. str$ie peekedienung und auch
  10. 90 print"der [197]inbau entsprechen den dortigen
  11. 100 [153]"atnngaben. (NULL)icht mehr vorhanden sind die
  12. 110 print"[210][211]-232-[210]outinen, deren [208]latz fuer die
  13. 120 [153]"lenentronics-(NULL)chnittstelle gebraucht
  14. 130 print"wurde.
  15. 150 [153]" str$as erklaerte (NULL)iel war, eine (NULL)chnitt-
  16. 160 print"stelle im [203]ernel unterzubringen, die
  17. 170 [153]"es ermoeglicht, einen str$rucker mit (NULL)a-
  18. 180 print"rallel-[211]chnittstelle so am [213]ser-[208]ort
  19. 190 [153]"zu betreiben, dass man (abgesehen von
  20. 200 print"den meist besseren [209]ualitaeten des
  21. 210 [153]"str$ruckers) kaum mehr merkt, dass es
  22. 220 print"sich nicht um einen [195]ommodore-kompa-
  23. 230 [153]"tiblen str$rucker handelt.
  24. 240 print"                                [212]aste
  25. 250 [161]a$:[139]a$[178]""[167]250
  26. 260 [153]"load
  27. 270 print" [211]o wird nur ein einfaches [214]erbindungs-
  28. 280 [153]"kabel (kein right$nterface!) benoetigt, und
  29. 290 print"viele [211]teuerprobleme, die mit [201]nter-
  30. 300 [153]"faces entstehen, entfallen.
  31. 310 print
  32. 320 print" [204]eider war es im vorhandenen [211]peicher-
  33. 330 [153]"raum nicht moeglich, saemtliche ascunk-
  34. 340 print"tionen, also auch die [218]ahlenformatie-
  35. 350 [153]"rung etc. eines lenommodore-str$ruckers un-
  36. 360 print"terzubringen. [193]lle oft gebrauchten
  37. 370 [153]"str$ruckerfunktionen werden jedoch orgi-
  38. 380 print"nalgetreu an den [208]arallel-[196]rucker wei-
  39. 390 [153]"tergegeben. (NULL)elbst left$ardcopy-(NULL)outinen,
  40. 400 print"die einen [205][208][211]801/803 erwarten, laufen
  41. 410 [153]"einwandfrei mit dem lenval(NULL)(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel.
  42. 420 print
  43. 430 print" [198]olgende [196]ruckerfunktionen werden
  44. 440 [153]"angepasst:
  45. 450 print
  46. 460 print"- [196]er [196]rucker wird ueber [199]eraeteadres-
  47. 470 [153]"  se #4 angesprochen.
  48. 480 print"                                [212]aste
  49. 490 [161]a$:[139]a$[178]""[167]490
  50. 500 [153]"load";
  51. 510 [153]"- vals wird automatisch valxtra-(NULL)ine-asceed
  52. 520 print"  ausgegeben, die [193]uto-[204][198]-[198]unktion
  53. 530 [153]"  des str$ruckers muss also ausgeschaltet
  54. 540 print"  bleiben ([207]rginalzustand!).
  55. 550 [153]"- str$er str$rucker wird beim ersten atnnspre-
  56. 560 print"  chen automatisch auf den deutschen
  57. 570 [153]"  (NULL)eichensatz mit (NULL)mlauten umgeschaltet.
  58. 580 print"[145]- [206]ormalerweise wird [199]ross/[199]rafik bzw.
  59. 590 [153]"  chr$ross-(NULL)leinschreibung so gedruckt,
  60. 600 print"  wie der [194]ildschirm sie anzeigt.
  61. 610 [153]"  (NULL)enn kein (NULL)riginal-(NULL)eichensatz auf
  62. 620 print"  dem [194]ildschirm ist, wird [199]ross/[203]lein-
  63. 630 [153]"  schreibung benutzt ((NULL)iehe auch (NULL)m-
  64. 640 print"  schaltung per [211]ekundaeradresse).
  65. 650 [153]"- atnlle chr$rafikzeichen des len 64 werden
  66. 660 print"  gedruckt. [204]istings sehen also aus wie
  67. 670 [153]"  auf dem peekildschirm.
  68. 680 print
  69. 690 print" [198]olgende [211]teuerzeichen und -[198]unktionen
  70. 700 [153]"werden verarbeitet:
  71. 710 print
  72. 720 print"- [211]ekundaeradresse 10[146] [196]rucker-[210]eset
  73. 730 [153]:[153]"                                (NULL)aste
  74. 740 geta$:ifa$=""then740
  75. 750 print"[147]";
  76. 760 print"- [211]ekundaeradresse 6[146] [218]eilen-[193]bstand
  77. 770 [153]"  einstellen (in /144'-(NULL)chritten, wie
  78. 780 print"  bei [195]ommodore-[196]ruckern)
  79. 790 [153]"- lenleft$(NULL)$(1) und lenleft$(NULL)$(14)wait schalten auf
  80. 800 print"  erweiterte [218]eichen
  81. 810 [153]"- lenleft$(NULL)$(129) und lenleft$(NULL)$(15)wait schalten er-
  82. 820 print"  weiterte [218]eichen aus
  83. 830 [153]"- lenleft$(NULL)$(8)wait schaltet auf 7-(NULL)unkt-chr$rafik-
  84. 840 print"  [205]odus. [196]er [218]eilenabstand wird dabei
  85. 850 [153]"  angepasst (21/216')
  86. 860 print"- [195][200][210]$(15)[146] schaltet [199]rafik aus
  87. 870 [153]"- lenleft$(NULL)$(17)wait schaltet unbedingt auf
  88. 880 print"  [199]ross/[203]leinschreibung
  89. 890 [153]"- lenleft$(NULL)$(145)wait schaltet unbedingt auf
  90. 900 print"  [199]ross/[199]rafik-[205]odus
  91. 910 [153]"- lenleft$(NULL)$(141)wait bewirkt (NULL)agenruecklauf
  92. 920 print"  ohne [218]eilenvorschub
  93. 930 [153]"- lenleft$(NULL)$(34)wait schaltet auf (NULL)uote-(NULL)odus
  94. 940 print"  (weitere [211]teuerzeichen werden als [199]ra-
  95. 950 [153]"on  fikzeichen gedruckt)
  96. 960 print"- [195][200][210]$(18)[146] schaltet auf [210]everse
  97. 970 [153]"- lenleft$(NULL)$(146)wait schaltet (NULL)everse aus
  98. 980 print
  99. 990 print"                                 [212]aste
  100. 1000 [161]a$:[139]a$[178]""[167]1000
  101. 1010 [153]"load";
  102. 1020 [153]" atnndere (NULL)teuerzeichen werden als chr$rafik-
  103. 1030 print"[145]zeichen gedruckt.
  104. 1040 [153]
  105. 1050 [153]" (NULL)it der (NULL)peicherstelle 150wait koennen
  106. 1060 print"noch weitere [198]unktionen gesteuert
  107. 1070 [153]"werden:
  108. 1080 print
  109. 1090 print"[208][207][203][197] 150,128[146] bewirkt, dass [211]ekundaer-
  110. 1100 [153]"adresse 7 als (NULL)mschaltzeichen fuer
  111. 1110 print"[199]ross/[203]leinschreibung interpretiert
  112. 1120 [153]"wird. (NULL)hne (NULL)ekundaeradresse oder mit
  113. 1130 print"[211][193]=0 wird [199]ross/[199]rafik gedruckt. [194]ei
  114. 1140 [153]"anderen (NULL)atn wird gemaess peekildschirm
  115. 1150 print"gedruckt.
  116. 1160 [153]"(NULL)(NULL)(NULL)val 150,64wait alle (NULL)eichen werden direkt
  117. 1170 print"ohne irgendwelche [215]andlung an den
  118. 1180 [153]"str$rucker ausgegeben. right$n diesem (NULL)odus
  119. 1190 print"entfaellt auch das sonst uebliche [197]xtra-
  120. 1200 [153]"on(NULL)ine-asceed.
  121. 1210 print"[208][207][203][197][160]150,1[146] der [196]rucker wird nicht auf
  122. 1220 [153]"deutschen (NULL)eichensatz umgeschaltet.
  123. 1230 print
  124. 1240 print"[196]urch [193]ddition koennen die [215]erte auch
  125. 1250 [153]"gemischt werden!
  126. 1260 print"                                 [212]aste";
  127. 1270 geta$:ifa$=""then1270
  128. 1280 print"[147][146]";
  129. 1290 print" [196]ie [193]usgabe-[210]outinen fuer den [208]arallel-
  130. 1300 [153]"onstr$rucker sind so in die right$vallen-peekus-(NULL)outi-
  131. 1310 print"nen eingebunden, dass auch praktisch
  132. 1320 [153]"alle (NULL)aschinenprogramme keine (NULL)otiz
  133. 1330 print"davon nehmen, wenn kein serieller
  134. 1340 [153]"str$rucker angeschlossen ist. peekeim peeketrieb
  135. 1350 print"eines seriellen [196]ruckers mit diesem
  136. 1360 [153]"(NULL)ystem ist allerdings zu beachten, dass
  137. 1370 print"es ca. 2 [211]ekunden dauert, bis der
  138. 1380 [153]"str$rucker beim ersten (NULL)effnen reagiert,
  139. 1390 print"da zuerst das [214]orhandensein eines
  140. 1400 [153]"(NULL)arallel-str$ruckers abgefragt wird.
  141. 1420 print" [213]nter [197]insatz aller [211]peicherreserven
  142. 1430 [153]"(str$ie (NULL)eldung (NULL)valatn(NULL)lenleft$right$(NULL)chr$ asc(NULL)(NULL) beim (NULL)aden
  143. 1440 print"fiel zum [207]pfer) gelang es, noch ein
  144. 1450 [153]"weiteres asceature einzubauen:
  145. 1460 print" [194]ei [196]ruck auf <[195][212][210][204]+[198]3> erscheint auf
  146. 1470 [153]"dem peekildschirm :(NULL)right$(NULL)(NULL)wait und der blin-
  147. 1480 print"kende [195]ursor. [196]ieser [194]efehl ersetzt das
  148. 1490 [153]"leidige (NULL)(NULL)val(NULL)1,4:len(NULL)str$1:(NULL)right$(NULL)(NULL)wait. (NULL)ach dem
  149. 1500 print"[204]isten wird das [196]ruckerfile wieder ein-
  150. 1510 [153]"wandfrei geschlossen, sodass auch das
  151. 1520 print"[208][210][201][206][212]#1:[195][204][207][211][197]1[146] entfaellt.
  152. 1530 [153]"                                 (NULL)astewait";
  153. 1540 [161]a$:[139]a$[178]""[167]1540
  154. 1550 [153]"load
  155. 1560 print" [198]uer alle, die sich das [214]erbindungs-
  156. 1570 [153]"kabel (NULL)ser-(NULL)ort - lenentronics nicht kau-
  157. 1580 print"fen wollen, die [193]nschlussbelegung:
  158. 1590 [153]
  159. 1600 [153]"(NULL)ser-(NULL)ort   lenentronics
  160. 1610 print
  161. 1620 print"    [193]           16
  162. 1630 [153]"    peek           11
  163. 1640 print"    [195]            2
  164. 1650 [153]"    str$            3
  165. 1660 print"    [197]            4
  166. 1670 [153]"    asc            5
  167. 1680 print"    [200]            6
  168. 1690 [153]"    right$            7
  169. 1700 print"    [203]            8
  170. 1710 [153]"    (NULL)            9
  171. 1720 print"    [205]            1
  172. 1730 [153]"    (NULL)          wie atn
  173. 1740 print
  174. 1750 print" [194]esitzer eines nicht [197][211][195]/p-kompatiblen
  175. 1760 [153]"str$ruckers (z.peek. (NULL)elchers len(NULL) 80 right$right$) mues-
  176. 1770 print"sen vor dem [194]rennen folgende [193]enderungen
  177. 1780 [153]"onam (NULL)rogramm vornehmen:
  178. 1790 print"                                 [212]aste[146]";
  179. 1800 geta$:ifa$=""then1800
  180. 1810 print"[147]"
  181. 1820 print" [211]peicherstelle        neuer [215]ert
  182. 1830 [153]"(ab val(NULL)(NULL)(NULL)(NULL)-(NULL)tart)
  183. 1840 print"----------------       ----------
  184. 1850 [153]"     $30atn9                 $4peek
  185. 1860 print"     $30[193][196]                 $[197][193]
  186. 1870 [153]"     $30atnval                 $valatn
  187. 1880 print"     $30[193][198]                 $[197][193]
  188. 1890 [153]"     $30peek0                 $valatn
  189. 1900 print"[160]    $30[194]1                 $[197][193]
  190. 1910 [153]
  191. 1920 [153]" str$adurch werden chr$rafik-(NULL)eichen im
  192. 1930 print"[211]ingle-[196]ensity-[205]odus ausgegeben
  193. 1940 [153]"(statt len(NULL)(NULL)).
  194. 1950 print" [198]uer den erwaehnten [205]elchers-[196]rucker
  195. 1960 [153]"muss ausserdem der (NULL)ert fuer das chr$rafik-
  196. 1970 print"[145][204]ine-[198]eed geaendert werden:
  197. 1980 [153]
  198. 1990 [153]"     $2asc71                 $13
  199. 2000 print"                                 [212]aste
  200. 2010 [161]a$:[139]a$[178]""[167]2010
  201.